5 '*** OISAC 2 *** VT 52 ***
10 OPEN"COM0:6,N,8,1,N,N,N,B" AS #1
20 CLS:PRINTCHR$(9)"Texte ou Code CTRL (T/C) ?";:$=INPUT$(1):PRINTCHR$(13);:IF $="T" THEN40ELSEIF $<>"C" THENBEEP:GOTO20
32 PRINT"Carac ASCII : ";:INPUT@1;C$:PRINT#1,CHR$(27)+C$
40 INPUT"Texte : ",$:PRINT #1,$:GOTO20